home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-11
/
butt01.zip
/
MIS_LOGO.PRG
< prev
next >
Wrap
Text File
|
1993-01-04
|
2KB
|
59 lines
*:*********************************************************************
*:
*: Program: MIS_LOGO.PRG
*:
*: System: MIS Consulting
*: Author: Charles Alan Butler
*: Copyright (c) 1989, Charles Alan Butler
*: Last modified: 09/03/89 7:27
*:
*: Called by: STARTPRG.PRG
*: : PAS.PRG
*:
*: Documented 09/17/89 at 16:36 SNAP! version 3.12f
*:*********************************************************************
SET STATUS OFF
SET SCOREBOARD OFF
SET COLOR TO N/B
CLEAR
c=REPL(CHR(15)+SPACE(20),4)
@ 2,8 SAY c
@ 6,18 SAY c
@ 10,8 SAY c
@ 14,18 SAY c
@ 18,8 SAY c
@ 22,18 SAY c
@ 13,16,13,63 BOX CHR(223)
@ 4,63,12,63 BOX CHR(219)
@ 1,2 , 23,77 BOX CHR(219)
@ 1,3 , 23,76 BOX CHR(219)
SET COLOR TO N/R
@ 0,0,24,79 BOX CHR(176)
@ 0,1,24,78 BOX CHR(176)
SET COLOR TO b+/BG
@ 3,15 TO 12,62 CLEAR
@ 3,16 TO 12,61 DOUBLE
SET COLOR TO b+/BG
@ 5,20 SAY "▓▓▓▓▓▓▓▓▓▓▓▓▓▄ ▓▓▓▓▓▓▓▓▓▄ ▓▓▓▓▓▓▓▓▓▄ "
@ ROW()+1,20 SAY "▓▓▓█▀▓▓▓█▀▓▓▓█ ▀▀▓▓▓█▀▀▀ ▓▓▓█▀▀▀▀▀▀ "
@ ROW()+1,20 SAY "▓▓▓█ ▓▓▓█ ▓▓▓█ ▓▓▓█ ▓▓▓▓▓▓▓▓▓▄ "
@ ROW()+1,20 SAY "▓▓▓█ ▓▓▓█ ▓▓▓█ ▓▓▓█ ▀▀▀▀▓▓▓█ "
@ ROW()+1,20 SAY "▓▓▓█ ▓▓▓█ ▓▓▓█ ▓▓▓▓▓▓▓▓▓▄ ▓▓▓▓▓▓▓▓▓█ "
@ ROW()+1,20 SAY " ▀▀▀ ▀▀▀ ▀▀▀ ▀▀▀▀▀▀▀▀▀ ▀▀▀▀▀▀▀▀▀ "
@ 11,26 SAY " C O N S U L T I N G"
SET COLOR TO BG+/B
@ 15,28 SAY "2003 South 51st Street"
@ ROW()+1,28 SAY " Tampa, Fl. 33619"
@ ROW()+1,28 SAY " (813)247-5700"
SET COLOR TO R*/B
@ ROW()+2,30 SAY "(c) Copyright 1988"
@ ROW()+1,30 SAY "All Rights Reserved"
SET COLOR TO BG/N
RETURN && End log_onq
*: EOF: MIS_LOGO.PRG